(message_with_string): Error if STRING is not a string.

diff --git a/src/xdisp.c b/src/xdisp.c
index a6870316e0c743b6c6b1795e6055339898357c41..155602e2b4a88f447ee3c235dfe5fa28d5d6fc9a 100644 (file)
--- a/src/xdisp.c
+++ b/src/xdisp.c
@@ -6053,6 +6053,8 @@ message_with_string (m, string, log)
      Lisp_Object string;
      int log;
 {
+  CHECK_STRING (string);
+
   if (noninteractive)
     {
       if (m)